#Dennis Moskov, Master Thesis
#read data base, change classes

#read data base accordingly
DB<-read.csv("MeOH st xsy article.csv",header=TRUE)

#change classes accordingly
DB[1:length(DB)] <- lapply(DB[1:length(DB)], as.numeric)

DB$prep.meth<-as.factor(DB$prep.meth)
DB$article<-as.integer(DB$article) 


#for discretized data base

DB[,30]<-ordered(DB[,30], levels = c("bad", "moderate", "good","very good"))
DB[,31]<-ordered(DB[,31], levels = c("very bad", "bad", "moderate", "good","very good","excellent"))
DB[,32]<-ordered(DB[,32], levels = c("very bad","bad", "moderate", "good","very good"))


sapply(DB,class)
